home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1996 #1 / Amiga Plus CD - 1996 - No. 1.iso / pd / netz / amiconnect / amitcp / bin / all / nntptransfer < prev    next >
AmigaDOS Script File  |  1995-09-02  |  3KB  |  61 lines
  1. .KEY HOST,GROUPS/K,HISTORY/K,STAMP/K,KILL/K,TO/K,PANIC/K,BATCH/K/N,BLIP/K/N,TRACE/K,AUTONEWS/K
  2. ;*
  3. ;*   Sample script to invoke nntp client and add news to uucp Newsbase
  4. ;*
  5. ;*  Mandatory parameter of name of news server; all other parameters have
  6. ;*  reasonable defaults (assuming you have a uulib:NewsGroups file).
  7. ;*
  8. .def HOST $newsserver
  9. .def GROUPS "UULIB:NewsGroups"      ;file containing list of groups
  10. .def HISTORY "AmiTCP:db/NewsHistory"   ;file containing news history
  11. .def STAMP "AmiTCP:db/NewsStamp" ;file containing date news last retrieved
  12. .def KILL "AmiTCP:db/nntpKillFile"  ;file containing kill instructions
  13. .def BLIP 5            ;frequency of display of blipmsg
  14. .def TO "uuspool:NewsBatch"      ;file to contain batched news
  15. .def PANIC 150000       ;maximum size of pending news in T:
  16. .def BATCH 4           ;maximum number of requests batched to server
  17. .def TRACE 3            ;amount of information displayed
  18. .BRA {
  19. .KET }
  20.  
  21. changetaskpri 2 ; set task priority for quicker news download;
  22. if NOT EXISTS {Groups}        ;Check we have a Groups file
  23.    echo "You must set up a '{Groups}' file, or give the name"
  24.    echo "of another file containing the news groups you want"
  25.    quit 10
  26. endif
  27. echo "Newsserver: "{host}
  28. echo "Pulling News..."
  29. echo >t:nntpclient-Commands "NEWGROUPS t:nntp-NewGroups*NNEWNEWS {Groups} {to}"
  30.  
  31. failat 11            ;nntpclient has done something at error level 10
  32. nntpclient <t:nntpclient-Commands {host} COMPLEX BATCH {batch} BLIP {blip} BLIPMSG "NNTP: %5ld articles received" HISTORYFILE {history} STAMPFILE {stamp} TRACE {trace}
  33. failat 10            ;back to default
  34. delete t:nntpclient-Commands QUIET  ;don't want command file now
  35. echo "News Dowloaded"
  36. if {autodown} eq "YES"
  37.   amiconnect down
  38. endif
  39. if exists t:nntp-NewGroups    ;Got any new groups ?
  40.    echo "{host} has the following new news groups:"
  41.    echo
  42.    type t:nntp-NewGroups >> uulib:NewNewsGroups   ; Show new groups
  43.    type t:nntp-Newgroups
  44.    echo "Newgroup list appended to uulib:newnewsgroups"
  45. endif
  46. if exists {to}
  47.    failat 30         ;don't worry if we can't find GetPriority
  48.    getpriority >nil:    ;preserve the current priority in a local variable
  49.    failat 20         ;back to default
  50.    changetaskpri -4     ;postprocessing is a background task
  51.    rnews {to}
  52.    failat 10            ; because
  53.    ; delete {to} quiet    ;get rid of the postprocessed file
  54.    get >nil: Priority      ;check that Priority local var. was set
  55.    if not WARN
  56.      changetaskpri $Priority ;re-instate the saved priority
  57.    endif
  58. else
  59.    echo "Sorry, no news transferred"
  60. endif
  61.